﻿Public Class Form1
    

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.TextBox2.Text = Vichama.Components.Cifrado.EncriptarTexto(Me.TextBox1.Text, "APG")
        Me.TextBox3.Text = Vichama.Components.Kerberos.Encriptar("APG", Me.TextBox1.Text)

        Me.TextBox4.Text = Vichama.Components.Cifrado.DesencriptarTexto(Me.TextBox2.Text, "APG")
        Me.TextBox5.Text = Vichama.Components.Kerberos.DesEncriptar("APG", Me.TextBox3.Text)

    End Sub
End Class
